ensure name of a mutex is a string

diff --git a/src/thread.c b/src/thread.c
index 83f25e8d462132ca1bb1ee358c469c3c1bdf2e91..8fa43dd57f2e6883724e9fe93ed525aa308ec862 100644 (file)
--- a/src/thread.c
+++ b/src/thread.c
@@ -185,6 +185,9 @@ informational only.  */)
   struct Lisp_Mutex *mutex;
   Lisp_Object result;
 
+  if (!NILP (name))
+    CHECK_STRING (name);
+
   mutex = ALLOCATE_PSEUDOVECTOR (struct Lisp_Mutex, mutex, PVEC_MUTEX);
   memset ((char *) mutex + offsetof (struct Lisp_Mutex, mutex),
          0, sizeof (struct Lisp_Mutex) - offsetof (struct Lisp_Mutex,